let ar = Stack.create();;

print_endline (string_of_int (Stack.length ar));;

for i = 0 to 1000000 - 1 do
    Stack.push i ar;
done;;

print_endline (string_of_int (Stack.length ar));;

for i = 0 to 1000000 - 1 do
    ignore(Stack.pop ar);
done;;

print_endline (string_of_int (Stack.length ar));;
